home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / basepc.arc / BYE.BAS < prev    next >
BASIC Source File  |  1985-10-09  |  220b  |  12 lines
  1. 1 REM BYE.BAS
  2. 10 PRINT "Hanging up modem . . ."
  3. 20 OPEN "com1:1200,n,8,1" AS #1
  4. 30 PRINT #1, "Bye . . ."
  5. 40 FOR I=1 TO 2000
  6. 50 NEXT
  7. 60 PRINT #1,"+++";
  8. 70 FOR I=1 TO 2000
  9. 80 NEXT
  10. 90 PRINT #1,"AT H"
  11. 100 SYSTEM
  12.